10,000 Designer Photos/10,000 designer photos.iso/menu.dxr/00012_Go to Net Page.ls

Text File | 1999-04-14 | 1.2 KB | 37 lines

property whichevent, WhichURL

on initGotoNetPage me
  init(me)
end

on mouseUp me
  if whichevent = #mouseUp then
    init(me)
  end if
end

on prepareFrame me
  if whichevent = #prepareFrame then
    init(me)
  end if
end

on exitFrame me
  if whichevent = #exitFrame then
    init(me)
  end if
end

on init me
  gotoNetPage(me.WhichURL)
end

on getPropertyDescriptionList
  p_list = [#WhichURL: [#comment: "Destination URL:", #format: #string, #default: "http://www.macromedia.com                  "], #whichevent: [#comment: "Initializing Event:", #format: #symbol, #range: [#mouseUp, #prepareFrame, #exitFrame, #initGotoNetPage], #default: #mouseUp]]
  return p_list
end

on getBehaviorDescription
  return "Loads the designated HTML Page when the specified event occurs.  When called from a Shockwave movie, this behavior replaces the current page displayed in the web browser.  When called from a projector or in authoring mode, it opens a browser to display the requested page." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Destination URL - Enter the complete URL of the destination page. Include http://." & RETURN & "ΓÇó Initializing Event - Specify the event that triggers the behavior."
end